﻿Imports DataAcessLayer

Partial Public Class WebForm6
    Inherits System.Web.UI.Page

    Dim DAL As New DAL
    Private Shared intIDEquipa As Integer
    Private Shared flag As Boolean

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Message.Visivel = False
        lblAccAlterar.Text = "Criar Equipa"

        If Not Page.IsPostBack Then
            Preenchimento()
        End If
    End Sub

    Protected Sub Preenchimento()

        gvEquipas.DataSource = DAL.ObterEquipas
        gvEquipas.DataBind()

    End Sub

    Protected Sub gvJogos_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvEquipas.RowCommand

        If e.CommandName = "Editar" Then

            lblAccAlterar.Text = "Editar Equipa"

            Dim equipa = DAL.ObterEquipaPorID(e.CommandArgument).FirstOrDefault
            txtNome.Text = equipa.NomeEquipa
            txtGolosMarcados.Text = equipa.GolosMarcados
            txtGolosSofridos.Text = equipa.GolosSofridos
            txtVitorias.Text = equipa.Vitorias
            txtEmpates.Text = equipa.Empates
            txtDerrotas.Text = equipa.Derrotas

            intIDEquipa = e.CommandArgument
            flag = True
            Accordion1.SelectedIndex = 0

        ElseIf e.CommandName = "Apagar" Then

            If DAL.ApagarEquipa(e.CommandArgument) Then
                Message.FeedbackUserMessage("Equipa apagada com Sucesso!", TipoMensagem.Sucesso)
            Else
                Message.FeedbackUserMessage("Ocorreu um erro!", TipoMensagem.Erro)
            End If

            flag = False

            Preenchimento()
        End If

    End Sub

    Protected Sub lnkGravar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnkGravar.Click
        If flag Then

            If DAL.AlterarEquipa(intIDEquipa, txtNome.Text, txtGolosMarcados.Text, txtGolosSofridos.Text, _
                               txtVitorias.Text, txtEmpates.Text, txtDerrotas.Text) Then

                Message.FeedbackUserMessage("Equipa Alterada com Sucesso!", TipoMensagem.Sucesso)
            Else
                Message.FeedbackUserMessage("Ocorreu um erro!", TipoMensagem.Erro)
            End If

        Else

            If DAL.InserirEquipa(txtNome.Text, txtGolosMarcados.Text, txtGolosSofridos.Text, _
                               txtVitorias.Text, txtEmpates.Text, txtDerrotas.Text) Then

                Message.FeedbackUserMessage("Equipa criada com Sucesso!", TipoMensagem.Sucesso)
            Else
                Message.FeedbackUserMessage("Ocorreu um erro!", TipoMensagem.Erro)
            End If
        End If

        flag = False
        Preenchimento()
    End Sub

    Protected Sub lnkCancelar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnkCancelar.Click
        lblAccAlterar.Text = "Criar Equipa"
        txtNome.Text = ""
        txtGolosMarcados.Text = ""
        txtGolosSofridos.Text = ""
        txtVitorias.Text = ""
        txtEmpates.Text = ""
        txtDerrotas.Text = ""
        flag = False
        Accordion1.SelectedIndex = 1
    End Sub

End Class